home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / borland / jnfb88.zip / CFLOAT.ZIP / DENORMAL.C next >
Text File  |  1987-06-23  |  195b  |  10 lines
  1. /* Listing 1: */
  2.  
  3. double x,y;
  4. main(){
  5. x = 1.e-300;
  6. y = x *(1. + 1.e-15);
  7. if (x == y) puts("x == y"); else puts("x != y");
  8. if (x - y == 0.) puts("x - y = 0"); else puts("x - y != 0");
  9. }
  10.